/ BCI NET / BCI NET Dec 94.iso / archives / games / strategy / mines.lha / Windows / MINESELE.MOD

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 4d 69 6e 65 73 45 | 6c 65 6d 73 2e 4d 6f 64 |oBMinesE|lems.Mod|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 f0 01 97 03 00 00 | 01 53 79 6e 74 61 78 31 |........|.Syntax1|
|00000030| 30 2e 53 63 6e 2e 46 6e | 74 00 0f 00 07 00 00 00 |0.Scn.Fn|t.......|
|00000040| 02 53 79 6e 74 61 78 31 | 30 62 2e 53 63 6e 2e 46 |.Syntax1|0b.Scn.F|
|00000050| 6e 74 00 0f 00 0a 00 00 | 00 01 0f 00 bc 01 00 00 |nt......|........|
|00000060| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000070| 46 6f 6c 64 45 6c 65 6d | 73 00 4e 65 77 00 07 01 |FoldElem|s.New...|
|00000080| 0f 00 0b 02 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|00000090| 00 c0 d4 01 00 01 02 01 | 0f 00 2f 00 00 00 01 0f |........|../.....|
|000000a0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|000000b0| 0f 00 55 01 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..U.....|......8.|
|000000c0| 00 c0 d4 01 00 01 02 01 | 0f 00 5c 00 00 00 01 0f |........|..\.....|
|000000d0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|000000e0| 0f 00 f2 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|000000f0| 00 c0 d4 01 00 01 02 01 | 0f 00 67 00 00 00 01 0f |........|..g.....|
|00000100| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000110| 0f 00 20 05 00 00 01 0f | 00 ff ff ff ff 80 38 01 |.. .....|......8.|
|00000120| 00 c0 d4 01 00 01 02 01 | 0f 00 63 00 00 00 01 0f |........|..c.....|
|00000130| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000140| 0f 00 6c 01 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..l.....|......8.|
|00000150| 00 c0 d4 01 00 01 02 01 | 0f 00 55 00 00 00 01 0f |........|..U.....|
|00000160| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000170| 0f 00 f0 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|00000180| 00 c0 d4 01 00 01 02 01 | 0f 00 49 00 00 00 01 0f |........|..I.....|
|00000190| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|000001a0| 0f 00 c2 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|000001b0| 00 c0 d4 01 00 01 02 01 | 0f 00 4c 00 00 00 01 0f |........|..L.....|
|000001c0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|000001d0| 0f 00 ac 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|000001e0| 00 c0 d4 01 00 01 02 01 | 0f 00 71 00 00 00 01 0f |........|..q.....|
|000001f0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000200| 0f 00 52 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..R.....|......8.|
|00000210| 00 c0 d4 01 00 01 02 01 | 0f 00 5e 00 00 00 01 0f |........|..^.....|
|00000220| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000230| 0f 00 4d 03 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..M.....|......8.|
|00000240| 00 c0 d4 01 00 01 02 01 | 0f 00 54 00 00 00 01 0f |........|..T.....|
|00000250| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000260| 0f 00 72 01 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..r.....|......8.|
|00000270| 00 c0 d4 01 00 01 02 01 | 0f 00 31 00 00 00 02 0f |........|..1.....|
|00000280| 00 05 00 00 00 01 0f 00 | 02 00 00 00 01 0f 00 ff |........|........|
|00000290| ff ff ff 80 38 01 00 c0 | d4 01 00 01 07 01 0f 00 |....8...|........|
|000002a0| 51 00 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |Q.......|....8...|
|000002b0| d4 01 00 01 02 01 0f 00 | 2e 00 00 00 02 0f 00 06 |........|........|
|000002c0| 00 00 00 01 0f 00 02 00 | 00 00 01 0f 00 ff ff ff |........|........|
|000002d0| ff 80 38 01 00 c0 d4 01 | 00 01 07 01 0f 00 2b 00 |..8.....|......+.|
|000002e0| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|000002f0| 00 01 02 01 0f 00 0e 00 | 00 00 02 0f 00 08 00 00 |........|........|
|00000300| 00 01 0f 00 02 00 00 00 | 01 0f 00 ff ff ff ff 80 |........|........|
|00000310| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 2c 00 00 00 |8.......|....,...|
|00000320| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000330| 02 01 0f 00 0e 00 00 00 | 02 0f 00 08 00 00 00 01 |........|........|
|00000340| 0f 00 02 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|00000350| 00 c0 d4 01 00 01 07 01 | 0f 00 2e 00 00 00 01 0f |........|........|
|00000360| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000370| 0f 00 0e 00 00 00 02 0f | 00 06 00 00 00 01 0f 00 |........|........|
|00000380| 02 00 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |........|....8...|
|00000390| d4 01 00 01 07 01 0f 00 | 2c 00 00 00 01 0f 00 ff |........|,.......|
|000003a0| ff ff ff 80 38 01 00 c0 | d4 01 00 01 02 01 0f 00 |....8...|........|
|000003b0| 30 00 00 00 00 82 19 00 | 00 4d 4f 44 55 4c 45 20 |0.......|.MODULE |
|000003c0| 4d 69 6e 65 73 45 6c 65 | 6d 73 3b 20 28 2a 20 4f |MinesEle|ms; (* O|
|000003d0| 62 65 72 6f 6e 2d 4d 69 | 6e 65 73 45 6c 65 6d 20 |beron-Mi|nesElem |
|000003e0| 56 31 2e 33 31 20 20 28 | 43 29 20 31 20 4f 63 74 |V1.31  (|C) 1 Oct|
|000003f0| 20 39 34 20 62 79 20 52 | 61 6c 66 20 44 65 67 6e | 94 by R|alf Degn|
|00000400| 65 72 20 2a 29 0d 0d 09 | 49 4d 50 4f 52 54 0d 09 |er *)...|IMPORT..|
|00000410| 09 54 65 78 74 73 2c 20 | 54 65 78 74 46 72 61 6d |.Texts, |TextFram|
|00000420| 65 73 2c 20 4d 69 6e 65 | 73 2c 20 4f 62 65 72 6f |es, Mine|s, Obero|
|00000430| 6e 2c 20 44 69 73 70 6c | 61 79 2c 20 50 72 69 6e |n, Displ|ay, Prin|
|00000440| 74 65 72 2c 20 54 65 78 | 74 50 72 69 6e 74 65 72 |ter, Tex|tPrinter|
|00000450| 2c 20 46 69 6c 65 73 3b | 0d 0d 09 54 59 50 45 0d |, Files;|...TYPE.|
|00000460| 09 09 45 6c 65 6d 20 3d | 20 50 4f 49 4e 54 45 52 |..Elem =| POINTER|
|00000470| 20 54 4f 20 45 6c 65 6d | 44 65 73 63 3b 0d 09 09 | TO Elem|Desc;...|
|00000480| 45 6c 65 6d 44 65 73 63 | 20 3d 20 52 45 43 4f 52 |ElemDesc| = RECOR|
|00000490| 44 20 28 54 65 78 74 73 | 2e 45 6c 65 6d 44 65 73 |D (Texts|.ElemDes|
|000004a0| 63 29 0d 09 09 09 64 3a | 20 4d 69 6e 65 73 2e 44 |c)....d:| Mines.D|
|000004b0| 61 74 61 3b 0d 09 09 45 | 4e 44 3b 0d 0d 09 09 46 |ata;...E|ND;....F|
|000004c0| 72 61 6d 65 20 3d 20 50 | 4f 49 4e 54 45 52 20 54 |rame = P|OINTER T|
|000004d0| 4f 20 46 72 61 6d 65 44 | 65 73 63 3b 0d 09 09 46 |O FrameD|esc;...F|
|000004e0| 72 61 6d 65 44 65 73 63 | 20 3d 20 52 45 43 4f 52 |rameDesc| = RECOR|
|000004f0| 44 20 28 4d 69 6e 65 73 | 2e 46 72 61 6d 65 44 65 |D (Mines|.FrameDe|
|00000500| 73 63 29 0d 09 09 09 63 | 6f 6c 3a 20 49 4e 54 45 |sc)....c|ol: INTE|
|00000510| 47 45 52 3b 0d 09 09 09 | 65 3a 20 45 6c 65 6d 3b |GER;....|e: Elem;|
|00000520| 0d 09 09 45 4e 44 3b 0d | 0d 09 56 41 52 0d 09 09 |...END;.|..VAR...|
|00000530| 57 3a 20 54 65 78 74 73 | 2e 57 72 69 74 65 72 3b |W: Texts|.Writer;|
|00000540| 0d 0d 09 28 2a 20 70 72 | 69 6e 74 20 74 68 65 20 |...(* pr|int the |
|00000550| 65 6c 65 6d 65 6e 74 20 | 2a 29 0d 09 50 52 4f 43 |element |*)..PROC|
|00000560| 45 44 55 52 45 20 50 72 | 69 6e 74 28 65 3a 20 45 |EDURE Pr|int(e: E|
|00000570| 6c 65 6d 3b 20 78 30 2c | 20 79 30 3a 20 49 4e 54 |lem; x0,| y0: INT|
|00000580| 45 47 45 52 29 3b 1c 0d | 09 09 56 41 52 0d 09 09 |EGER);..|..VAR...|
|00000590| 09 77 2c 20 68 3a 20 49 | 4e 54 45 47 45 52 3b 0d |.w, h: I|NTEGER;.|
|000005a0| 09 09 09 46 6f 6e 74 4e | 61 6d 65 2c 20 41 75 73 |...FontN|ame, Aus|
|000005b0| 67 61 62 65 3a 20 41 52 | 52 41 59 20 33 32 20 4f |gabe: AR|RAY 32 O|
|000005c0| 46 20 43 48 41 52 3b 0d | 09 42 45 47 49 4e 0d 09 |F CHAR;.|.BEGIN..|
|000005d0| 09 77 3a 3d 53 48 4f 52 | 54 28 65 2e 57 20 44 49 |.w:=SHOR|T(e.W DI|
|000005e0| 56 20 54 65 78 74 50 72 | 69 6e 74 65 72 2e 55 6e |V TextPr|inter.Un|
|000005f0| 69 74 29 3b 0d 09 09 68 | 3a 3d 53 48 4f 52 54 28 |it);...h|:=SHORT(|
|00000600| 65 2e 48 20 44 49 56 20 | 54 65 78 74 50 72 69 6e |e.H DIV |TextPrin|
|00000610| 74 65 72 2e 55 6e 69 74 | 29 3b 0d 09 09 46 6f 6e |ter.Unit|);...Fon|
|00000620| 74 4e 61 6d 65 3a 3d 22 | 53 79 6e 74 61 78 32 30 |tName:="|Syntax20|
|00000630| 2e 53 63 6e 2e 46 6e 74 | 22 3b 0d 09 09 50 72 69 |.Scn.Fnt|";...Pri|
|00000640| 6e 74 65 72 2e 52 65 70 | 6c 50 61 74 74 65 72 6e |nter.Rep|lPattern|
|00000650| 28 78 30 2c 20 79 30 2c | 20 77 2c 20 68 2c 20 32 |(x0, y0,| w, h, 2|
|00000660| 29 3b 0d 09 09 50 72 69 | 6e 74 65 72 2e 4c 69 6e |);...Pri|nter.Lin|
|00000670| 65 28 78 30 2c 20 79 30 | 2c 20 78 30 2b 77 2c 20 |e(x0, y0|, x0+w, |
|00000680| 79 30 29 3b 0d 09 09 50 | 72 69 6e 74 65 72 2e 4c |y0);...P|rinter.L|
|00000690| 69 6e 65 28 78 30 2c 20 | 79 30 2c 20 78 30 2c 20 |ine(x0, |y0, x0, |
|000006a0| 79 30 2b 68 29 3b 0d 09 | 09 50 72 69 6e 74 65 72 |y0+h);..|.Printer|
|000006b0| 2e 4c 69 6e 65 28 78 30 | 2b 77 2c 20 79 30 2c 20 |.Line(x0|+w, y0, |
|000006c0| 78 30 2b 77 2c 20 79 30 | 2b 68 29 3b 0d 09 09 50 |x0+w, y0|+h);...P|
|000006d0| 72 69 6e 74 65 72 2e 4c | 69 6e 65 28 78 30 2c 20 |rinter.L|ine(x0, |
|000006e0| 79 30 2b 68 2c 20 78 30 | 2b 77 2c 20 79 30 2b 68 |y0+h, x0|+w, y0+h|
|000006f0| 29 3b 0d 09 09 41 75 73 | 67 61 62 65 3a 3d 22 4f |);...Aus|gabe:="O|
|00000700| 62 65 72 6f 6e 2d 4d 69 | 6e 65 73 22 3b 0d 09 09 |beron-Mi|nes";...|
|00000710| 49 46 20 65 2e 64 2e 58 | 4b 61 73 74 65 6e 41 6e |IF e.d.X|KastenAn|
|00000720| 7a 3c 38 20 54 48 45 4e | 20 46 6f 6e 74 4e 61 6d |z<8 THEN| FontNam|
|00000730| 65 3a 3d 22 53 79 6e 74 | 61 78 31 34 2e 53 63 6e |e:="Synt|ax14.Scn|
|00000740| 2e 46 6e 74 22 3b 20 45 | 4e 44 3b 0d 09 09 50 72 |.Fnt"; E|ND;...Pr|
|00000750| 69 6e 74 65 72 2e 53 74 | 72 69 6e 67 28 78 30 2b |inter.St|ring(x0+|
|00000760| 31 31 2c 20 79 30 2b 68 | 20 44 49 56 20 32 2d 31 |11, y0+h| DIV 2-1|
|00000770| 35 2c 20 41 75 73 67 61 | 62 65 2c 20 46 6f 6e 74 |5, Ausga|be, Font|
|00000780| 4e 61 6d 65 29 3b 0d 09 | 45 4e 44 20 50 72 69 6e |Name);..|END Prin|
|00000790| 74 3b 1c 0d 0d 09 28 2a | 20 64 72 61 77 20 61 6c |t;....(*| draw al|
|000007a0| 6c 20 2a 29 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |l *)..PR|OCEDURE |
|000007b0| 50 6c 6f 74 41 6c 6c 28 | 66 3a 20 46 72 61 6d 65 |PlotAll(|f: Frame|
|000007c0| 29 3b 1c 0d 09 09 56 41 | 52 20 58 44 75 6d 2c 20 |);....VA|R XDum, |
|000007d0| 59 44 75 6d 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |YDum: IN|TEGER;..|
|000007e0| 42 45 47 49 4e 0d 09 09 | 4f 62 65 72 6f 6e 2e 52 |BEGIN...|Oberon.R|
|000007f0| 65 6d 6f 76 65 4d 61 72 | 6b 73 28 66 2e 53 65 69 |emoveMar|ks(f.Sei|
|00000800| 74 65 6e 4f 66 66 73 65 | 74 2c 20 66 2e 55 6e 74 |tenOffse|t, f.Unt|
|00000810| 65 6e 4f 66 66 73 65 74 | 2c 20 66 2e 57 2c 20 66 |enOffset|, f.W, f|
|00000820| 2e 48 29 3b 0d 09 09 44 | 69 73 70 6c 61 79 2e 52 |.H);...D|isplay.R|
|00000830| 65 70 6c 43 6f 6e 73 74 | 28 66 2e 63 6f 6c 2c 20 |eplConst|(f.col, |
|00000840| 66 2e 53 65 69 74 65 6e | 4f 66 66 73 65 74 2c 20 |f.Seiten|Offset, |
|00000850| 66 2e 55 6e 74 65 6e 4f | 66 66 73 65 74 2c 20 66 |f.UntenO|ffset, f|
|00000860| 2e 57 2d 32 2c 20 66 2e | 48 2d 32 2c 20 44 69 73 |.W-2, f.|H-2, Dis|
|00000870| 70 6c 61 79 2e 72 65 70 | 6c 61 63 65 29 3b 0d 09 |play.rep|lace);..|
|00000880| 09 0d 09 09 46 4f 52 20 | 58 44 75 6d 3a 3d 31 20 |....FOR |XDum:=1 |
|00000890| 54 4f 20 66 2e 64 2e 58 | 4b 61 73 74 65 6e 41 6e |TO f.d.X|KastenAn|
|000008a0| 7a 20 44 4f 0d 09 09 09 | 46 4f 52 20 59 44 75 6d |z DO....|FOR YDum|
|000008b0| 3a 3d 31 20 54 4f 20 66 | 2e 64 2e 59 4b 61 73 74 |:=1 TO f|.d.YKast|
|000008c0| 65 6e 41 6e 7a 20 44 4f | 0d 09 09 09 09 4d 69 6e |enAnz DO|.....Min|
|000008d0| 65 73 2e 44 72 61 77 4b | 61 73 74 65 6e 28 66 2c |es.DrawK|asten(f,|
|000008e0| 20 58 44 75 6d 2c 20 59 | 44 75 6d 2c 20 46 41 4c | XDum, Y|Dum, FAL|
|000008f0| 53 45 2c 20 66 2e 63 6f | 6c 29 3b 0d 09 09 09 45 |SE, f.co|l);....E|
|00000900| 4e 44 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 20 |ND;...EN|D;..END |
|00000910| 50 6c 6f 74 41 6c 6c 3b | 1c 0d 0d 09 28 2a 20 63 |PlotAll;|....(* c|
|00000920| 72 65 61 74 65 20 6e 65 | 77 20 66 69 65 6c 64 20 |reate ne|w field |
|00000930| 2a 29 0d 09 50 52 4f 43 | 45 44 55 52 45 20 4e 65 |*)..PROC|EDURE Ne|
|00000940| 77 46 69 65 6c 64 28 58 | 41 6e 7a 2c 20 59 41 6e |wField(X|Anz, YAn|
|00000950| 7a 2c 20 51 75 6f 74 65 | 2c 20 4d 6f 64 65 3a 20 |z, Quote|, Mode: |
|00000960| 49 4e 54 45 47 45 52 29 | 3a 20 4d 69 6e 65 73 2e |INTEGER)|: Mines.|
|00000970| 44 61 74 61 3b 1c 0d 09 | 09 56 41 52 20 64 3a 20 |Data;...|.VAR d: |
|00000980| 4d 69 6e 65 73 2e 44 61 | 74 61 3b 0d 09 42 45 47 |Mines.Da|ta;..BEG|
|00000990| 49 4e 0d 09 09 4e 45 57 | 28 64 29 3b 0d 09 09 64 |IN...NEW|(d);...d|
|000009a0| 2e 41 6b 74 69 76 3a 3d | 54 52 55 45 3b 20 64 2e |.Aktiv:=|TRUE; d.|
|000009b0| 50 61 75 73 65 3a 3d 46 | 41 4c 53 45 3b 20 64 2e |Pause:=F|ALSE; d.|
|000009c0| 53 74 61 72 74 50 6c 61 | 79 3a 3d 46 41 4c 53 45 |StartPla|y:=FALSE|
|000009d0| 3b 0d 09 09 64 2e 58 4b | 61 73 74 65 6e 41 6e 7a |;...d.XK|astenAnz|
|000009e0| 3a 3d 58 41 6e 7a 3b 20 | 64 2e 59 4b 61 73 74 65 |:=XAnz; |d.YKaste|
|000009f0| 6e 41 6e 7a 3a 3d 59 41 | 6e 7a 3b 0d 09 09 64 2e |nAnz:=YA|nz;...d.|
|00000a00| 51 75 6f 74 65 3a 3d 51 | 75 6f 74 65 3b 20 64 2e |Quote:=Q|uote; d.|
|00000a10| 4d 6f 64 65 3a 3d 4d 6f | 64 65 3b 0d 09 09 4d 69 |Mode:=Mo|de;...Mi|
|00000a20| 6e 65 73 2e 4e 65 75 65 | 73 46 65 6c 64 28 64 2c |nes.Neue|sFeld(d,|
|00000a30| 20 64 2e 58 4b 61 73 74 | 65 6e 41 6e 7a 2c 20 64 | d.XKast|enAnz, d|
|00000a40| 2e 59 4b 61 73 74 65 6e | 41 6e 7a 29 3b 0d 09 09 |.YKasten|Anz);...|
|00000a50| 52 45 54 55 52 4e 20 64 | 3b 0d 09 45 4e 44 20 4e |RETURN d|;..END N|
|00000a60| 65 77 46 69 65 6c 64 3b | 1c 0d 0d 09 28 2a 20 64 |ewField;|....(* d|
|00000a70| 6f 20 6d 6f 75 73 65 61 | 63 74 69 6f 6e 20 66 6f |o mousea|ction fo|
|00000a80| 72 20 66 72 61 6d 65 2a | 29 0d 09 50 52 4f 43 45 |r frame*|)..PROCE|
|00000a90| 44 55 52 45 20 44 6f 4d | 6f 75 73 65 28 67 3a 20 |DURE DoM|ouse(g: |
|00000aa0| 4d 69 6e 65 73 2e 46 72 | 61 6d 65 3b 20 58 2c 20 |Mines.Fr|ame; X, |
|00000ab0| 59 3a 20 49 4e 54 45 47 | 45 52 3b 20 4b 65 79 2c |Y: INTEG|ER; Key,|
|00000ac0| 20 46 69 72 73 74 4b 65 | 79 3a 20 53 45 54 29 3b | FirstKe|y: SET);|
|00000ad0| 1c 0d 09 09 56 41 52 0d | 09 09 09 58 4b 61 73 74 |....VAR.|...XKast|
|00000ae0| 65 6e 2c 20 59 4b 61 73 | 74 65 6e 3a 20 49 4e 54 |en, YKas|ten: INT|
|00000af0| 45 47 45 52 3b 0d 09 09 | 09 66 3a 20 46 72 61 6d |EGER;...|.f: Fram|
|00000b00| 65 3b 0d 09 42 45 47 49 | 4e 0d 09 09 66 3a 3d 67 |e;..BEGI|N...f:=g|
|00000b10| 28 46 72 61 6d 65 29 3b | 0d 09 09 49 46 20 46 69 |(Frame);|...IF Fi|
|00000b20| 72 73 74 4b 65 79 3d 7b | 31 7d 20 54 48 45 4e 0d |rstKey={|1} THEN.|
|00000b30| 09 09 09 49 46 20 4b 65 | 79 3d 7b 31 2c 30 7d 20 |...IF Ke|y={1,0} |
|00000b40| 54 48 45 4e 0d 09 09 09 | 09 4d 69 6e 65 73 2e 53 |THEN....|.Mines.S|
|00000b50| 63 6f 72 65 28 29 3b 0d | 09 09 09 45 4c 53 49 46 |core();.|...ELSIF|
|00000b60| 20 4b 65 79 3d 7b 32 2c | 31 7d 20 54 48 45 4e 0d | Key={2,|1} THEN.|
|00000b70| 09 09 09 09 49 46 20 28 | 7e 66 2e 64 2e 41 6b 74 |....IF (|~f.d.Akt|
|00000b80| 69 76 29 20 4f 52 20 28 | 66 2e 64 2e 41 6b 74 69 |iv) OR (|f.d.Akti|
|00000b90| 76 20 26 20 66 2e 64 2e | 53 74 61 72 74 50 6c 61 |v & f.d.|StartPla|
|00000ba0| 79 29 20 54 48 45 4e 0d | 09 09 09 09 09 66 2e 64 |y) THEN.|.....f.d|
|00000bb0| 3a 3d 4e 65 77 46 69 65 | 6c 64 28 66 2e 64 2e 58 |:=NewFie|ld(f.d.X|
|00000bc0| 4b 61 73 74 65 6e 41 6e | 7a 2c 20 66 2e 64 2e 59 |KastenAn|z, f.d.Y|
|00000bd0| 4b 61 73 74 65 6e 41 6e | 7a 2c 20 66 2e 64 2e 51 |KastenAn|z, f.d.Q|
|00000be0| 75 6f 74 65 2c 20 66 2e | 64 2e 4d 6f 64 65 29 3b |uote, f.|d.Mode);|
|00000bf0| 0d 09 09 09 09 09 66 2e | 65 2e 64 3a 3d 66 2e 64 |......f.|e.d:=f.d|
|00000c00| 3b 0d 09 09 09 09 09 50 | 6c 6f 74 41 6c 6c 28 66 |;......P|lotAll(f|
|00000c10| 29 3b 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 45 |);.....E|ND;....E|
|00000c20| 4c 53 49 46 20 4b 65 79 | 3d 7b 31 7d 20 54 48 45 |LSIF Key|={1} THE|
|00000c30| 4e 0d 09 09 09 09 49 46 | 20 66 2e 64 2e 41 6b 74 |N.....IF| f.d.Akt|
|00000c40| 69 76 20 26 20 66 2e 64 | 2e 53 74 61 72 74 50 6c |iv & f.d|.StartPl|
|00000c50| 61 79 20 54 48 45 4e 0d | 09 09 09 09 09 54 65 78 |ay THEN.|.....Tex|
|00000c60| 74 73 2e 57 72 69 74 65 | 53 74 72 69 6e 67 28 57 |ts.Write|String(W|
|00000c70| 2c 20 22 4d 69 6e 65 73 | 20 74 6f 20 66 69 6e 64 |, "Mines| to find|
|00000c80| 3a 20 22 29 3b 0d 09 09 | 09 09 09 54 65 78 74 73 |: ");...|...Texts|
|00000c90| 2e 57 72 69 74 65 49 6e | 74 28 57 2c 20 66 2e 64 |.WriteIn|t(W, f.d|
|00000ca0| 2e 4d 69 6e 65 73 2c 20 | 31 29 3b 0d 09 09 09 09 |.Mines, |1);.....|
|00000cb0| 09 54 65 78 74 73 2e 57 | 72 69 74 65 4c 6e 28 57 |.Texts.W|riteLn(W|
|00000cc0| 29 3b 0d 09 09 09 09 09 | 54 65 78 74 73 2e 41 70 |);......|Texts.Ap|
|00000cd0| 70 65 6e 64 28 4f 62 65 | 72 6f 6e 2e 4c 6f 67 2c |pend(Obe|ron.Log,|
|00000ce0| 20 57 2e 62 75 66 29 3b | 0d 09 09 09 09 45 4e 44 | W.buf);|.....END|
|00000cf0| 3b 09 09 09 09 0d 09 09 | 09 45 4e 44 3b 0d 09 09 |;.......|.END;...|
|00000d00| 09 52 45 54 55 52 4e 3b | 0d 09 09 45 4e 44 3b 0d |.RETURN;|...END;.|
|00000d10| 0d 09 09 58 3a 3d 58 2d | 66 2e 53 65 69 74 65 6e |...X:=X-|f.Seiten|
|00000d20| 4f 66 66 73 65 74 3b 59 | 3a 3d 59 2d 66 2e 55 6e |Offset;Y|:=Y-f.Un|
|00000d30| 74 65 6e 4f 66 66 73 65 | 74 3b 0d 09 09 49 46 20 |tenOffse|t;...IF |
|00000d40| 58 3c 30 20 54 48 45 4e | 20 52 45 54 55 52 4e 3b |X<0 THEN| RETURN;|
|00000d50| 45 4e 44 3b 0d 09 09 49 | 46 20 59 3c 30 20 54 48 |END;...I|F Y<0 TH|
|00000d60| 45 4e 20 52 45 54 55 52 | 4e 3b 45 4e 44 3b 0d 09 |EN RETUR|N;END;..|
|00000d70| 09 58 4b 61 73 74 65 6e | 3a 3d 58 20 44 49 56 20 |.XKasten|:=X DIV |
|00000d80| 4d 69 6e 65 73 2e 4b 61 | 73 74 65 6e 50 6c 61 74 |Mines.Ka|stenPlat|
|00000d90| 7a 20 2b 31 3b 0d 09 09 | 59 4b 61 73 74 65 6e 3a |z +1;...|YKasten:|
|00000da0| 3d 59 20 44 49 56 20 4d | 69 6e 65 73 2e 4b 61 73 |=Y DIV M|ines.Kas|
|00000db0| 74 65 6e 50 6c 61 74 7a | 20 2b 31 3b 0d 09 09 49 |tenPlatz| +1;...I|
|00000dc0| 46 20 28 58 4b 61 73 74 | 65 6e 3c 3d 66 2e 64 2e |F (XKast|en<=f.d.|
|00000dd0| 58 4b 61 73 74 65 6e 41 | 6e 7a 29 20 26 20 28 59 |XKastenA|nz) & (Y|
|00000de0| 4b 61 73 74 65 6e 3c 3d | 66 2e 64 2e 59 4b 61 73 |Kasten<=|f.d.YKas|
|00000df0| 74 65 6e 41 6e 7a 29 20 | 54 48 45 4e 0d 09 09 09 |tenAnz) |THEN....|
|00000e00| 49 46 20 66 2e 64 2e 41 | 6b 74 69 76 20 54 48 45 |IF f.d.A|ktiv THE|
|00000e10| 4e 0d 09 09 09 09 49 46 | 20 28 58 20 4d 4f 44 20 |N.....IF| (X MOD |
|00000e20| 4d 69 6e 65 73 2e 4b 61 | 73 74 65 6e 50 6c 61 74 |Mines.Ka|stenPlat|
|00000e30| 7a 29 3d 30 20 54 48 45 | 4e 20 52 45 54 55 52 4e |z)=0 THE|N RETURN|
|00000e40| 3b 45 4e 44 3b 0d 09 09 | 09 09 49 46 20 28 59 20 |;END;...|..IF (Y |
|00000e50| 4d 4f 44 20 4d 69 6e 65 | 73 2e 4b 61 73 74 65 6e |MOD Mine|s.Kasten|
|00000e60| 50 6c 61 74 7a 29 3d 30 | 20 54 48 45 4e 20 52 45 |Platz)=0| THEN RE|
|00000e70| 54 55 52 4e 3b 45 4e 44 | 3b 0d 09 09 09 09 4f 62 |TURN;END|;.....Ob|
|00000e80| 65 72 6f 6e 2e 52 65 6d | 6f 76 65 4d 61 72 6b 73 |eron.Rem|oveMarks|
|00000e90| 28 66 2e 53 65 69 74 65 | 6e 4f 66 66 73 65 74 2c |(f.Seite|nOffset,|
|00000ea0| 20 66 2e 55 6e 74 65 6e | 4f 66 66 73 65 74 2c 20 | f.Unten|Offset, |
|00000eb0| 66 2e 57 2c 20 66 2e 48 | 29 3b 0d 09 09 09 09 4d |f.W, f.H|);.....M|
|00000ec0| 69 6e 65 73 2e 4d 6f 75 | 73 65 4b 65 79 73 28 66 |ines.Mou|seKeys(f|
|00000ed0| 2c 20 58 4b 61 73 74 65 | 6e 2c 20 59 4b 61 73 74 |, XKaste|n, YKast|
|00000ee0| 65 6e 2c 20 4b 65 79 2c | 20 46 41 4c 53 45 2c 20 |en, Key,| FALSE, |
|00000ef0| 66 2e 63 6f 6c 29 3b 0d | 09 09 09 09 49 46 20 66 |f.col);.|....IF f|
|00000f00| 2e 64 2e 43 6f 75 6e 74 | 3d 30 20 54 48 45 4e 0d |.d.Count|=0 THEN.|
|00000f10| 09 09 09 09 09 54 65 78 | 74 73 2e 57 72 69 74 65 |.....Tex|ts.Write|
|00000f20| 53 74 72 69 6e 67 28 57 | 2c 20 22 59 6f 75 27 76 |String(W|, "You'v|
|00000f30| 65 20 67 6f 74 20 69 74 | 20 21 20 20 54 69 6d 65 |e got it| !  Time|
|00000f40| 3a 20 22 29 3b 0d 09 09 | 09 09 09 54 65 78 74 73 |: ");...|...Texts|
|00000f50| 2e 57 72 69 74 65 49 6e | 74 28 57 2c 20 66 2e 64 |.WriteIn|t(W, f.d|
|00000f60| 2e 54 69 6d 65 2c 20 31 | 29 3b 0d 09 09 09 09 09 |.Time, 1|);......|
|00000f70| 54 65 78 74 73 2e 57 72 | 69 74 65 53 74 72 69 6e |Texts.Wr|iteStrin|
|00000f80| 67 28 57 2c 20 22 20 73 | 65 63 2e 22 29 3b 0d 09 |g(W, " s|ec.");..|
|00000f90| 09 09 09 09 54 65 78 74 | 73 2e 57 72 69 74 65 4c |....Text|s.WriteL|
|00000fa0| 6e 28 57 29 3b 0d 09 09 | 09 09 09 54 65 78 74 73 |n(W);...|...Texts|
|00000fb0| 2e 41 70 70 65 6e 64 28 | 4f 62 65 72 6f 6e 2e 4c |.Append(|Oberon.L|
|00000fc0| 6f 67 2c 20 57 2e 62 75 | 66 29 3b 0d 09 09 09 09 |og, W.bu|f);.....|
|00000fd0| 45 4e 44 3b 0d 09 09 09 | 45 4e 44 3b 0d 09 09 45 |END;....|END;...E|
|00000fe0| 4e 44 3b 0d 09 45 4e 44 | 20 44 6f 4d 6f 75 73 65 |ND;..END| DoMouse|
|00000ff0| 3b 1c 0d 0d 09 28 2a 20 | 68 61 6e 64 6c 65 72 20 |;....(* |handler |
|00001000| 66 6f 72 20 46 72 61 6d | 65 20 2a 29 0d 09 50 52 |for Fram|e *)..PR|
|00001010| 4f 43 45 44 55 52 45 20 | 46 72 61 6d 65 48 61 6e |OCEDURE |FrameHan|
|00001020| 64 6c 65 72 28 6d 73 67 | 66 3a 20 44 69 73 70 6c |dler(msg|f: Displ|
|00001030| 61 79 2e 46 72 61 6d 65 | 3b 20 56 41 52 20 6d 73 |ay.Frame|; VAR ms|
|00001040| 67 3a 20 44 69 73 70 6c | 61 79 2e 46 72 61 6d 65 |g: Displ|ay.Frame|
|00001050| 4d 73 67 29 3b 1c 0d 09 | 09 56 41 52 20 66 3a 20 |Msg);...|.VAR f: |
|00001060| 46 72 61 6d 65 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |Frame;..|BEGIN...|
|00001070| 66 3a 3d 6d 73 67 66 28 | 46 72 61 6d 65 29 3b 0d |f:=msgf(|Frame);.|
|00001080| 09 09 57 49 54 48 20 6d | 73 67 3a 20 4f 62 65 72 |..WITH m|sg: Ober|
|00001090| 6f 6e 2e 49 6e 70 75 74 | 4d 73 67 20 44 4f 0d 09 |on.Input|Msg DO..|
|000010a0| 09 09 49 46 20 6d 73 67 | 2e 69 64 3d 4f 62 65 72 |..IF msg|.id=Ober|
|000010b0| 6f 6e 2e 74 72 61 63 6b | 20 54 48 45 4e 0d 09 09 |on.track| THEN...|
|000010c0| 09 09 66 2e 55 6e 74 65 | 6e 4f 66 66 73 65 74 3a |..f.Unte|nOffset:|
|000010d0| 3d 66 2e 59 2b 31 3b 66 | 2e 53 65 69 74 65 6e 4f |=f.Y+1;f|.SeitenO|
|000010e0| 66 66 73 65 74 3a 3d 66 | 2e 58 2b 31 3b 0d 09 09 |ffset:=f|.X+1;...|
|000010f0| 09 09 4d 69 6e 65 73 2e | 54 72 61 63 6b 4d 6f 75 |..Mines.|TrackMou|
|00001100| 73 65 28 66 2c 20 6d 73 | 67 2e 58 2c 20 6d 73 67 |se(f, ms|g.X, msg|
|00001110| 2e 59 2c 20 6d 73 67 2e | 6b 65 79 73 2c 20 44 6f |.Y, msg.|keys, Do|
|00001120| 4d 6f 75 73 65 29 3b 0d | 09 09 09 45 4e 44 3b 0d |Mouse);.|...END;.|
|00001130| 09 09 7c 20 6d 73 67 3a | 20 4d 69 6e 65 73 2e 50 |..| msg:| Mines.P|
|00001140| 6c 6f 74 4b 61 73 74 65 | 6e 4d 73 67 20 44 4f 0d |lotKaste|nMsg DO.|
|00001150| 09 09 09 49 46 20 6d 73 | 67 2e 64 3d 66 2e 64 20 |...IF ms|g.d=f.d |
|00001160| 54 48 45 4e 0d 09 09 09 | 09 4d 69 6e 65 73 2e 44 |THEN....|.Mines.D|
|00001170| 72 61 77 4b 61 73 74 65 | 6e 28 66 2c 20 6d 73 67 |rawKaste|n(f, msg|
|00001180| 2e 78 2c 20 6d 73 67 2e | 79 2c 20 46 41 4c 53 45 |.x, msg.|y, FALSE|
|00001190| 2c 20 66 2e 63 6f 6c 29 | 3b 0d 09 09 09 45 4e 44 |, f.col)|;....END|
|000011a0| 3b 0d 09 09 45 4c 53 45 | 0d 09 09 45 4e 44 3b 0d |;...ELSE|...END;.|
|000011b0| 09 45 4e 44 20 46 72 61 | 6d 65 48 61 6e 64 6c 65 |.END Fra|meHandle|
|000011c0| 72 3b 1c 0d 0d 09 28 2a | 20 63 72 65 61 74 65 20 |r;....(*| create |
|000011d0| 6e 65 77 20 46 72 61 6d | 65 20 2a 29 0d 09 50 52 |new Fram|e *)..PR|
|000011e0| 4f 43 45 44 55 52 45 20 | 4e 65 77 46 72 61 6d 65 |OCEDURE |NewFrame|
|000011f0| 28 64 3a 20 4d 69 6e 65 | 73 2e 44 61 74 61 3b 20 |(d: Mine|s.Data; |
|00001200| 58 30 2c 20 59 30 3a 20 | 49 4e 54 45 47 45 52 29 |X0, Y0: |INTEGER)|
|00001210| 3a 20 46 72 61 6d 65 3b | 1c 0d 09 09 56 41 52 20 |: Frame;|....VAR |
|00001220| 66 3a 20 46 72 61 6d 65 | 3b 0d 09 42 45 47 49 4e |f: Frame|;..BEGIN|
|00001230| 0d 09 09 4e 45 57 28 66 | 29 3b 0d 09 09 66 2e 68 |...NEW(f|);...f.h|
|00001240| 61 6e 64 6c 65 3a 3d 46 | 72 61 6d 65 48 61 6e 64 |andle:=F|rameHand|
|00001250| 6c 65 72 3b 20 66 2e 64 | 3a 3d 64 3b 0d 09 09 66 |ler; f.d|:=d;...f|
|00001260| 2e 58 3a 3d 58 30 3b 20 | 66 2e 59 3a 3d 59 30 3b |.X:=X0; |f.Y:=Y0;|
|00001270| 0d 09 09 66 2e 57 3a 3d | 64 2e 58 4b 61 73 74 65 |...f.W:=|d.XKaste|
|00001280| 6e 41 6e 7a 2a 4d 69 6e | 65 73 2e 4b 61 73 74 65 |nAnz*Min|es.Kaste|
|00001290| 6e 50 6c 61 74 7a 2b 33 | 3b 0d 09 09 66 2e 48 3a |nPlatz+3|;...f.H:|
|000012a0| 3d 64 2e 59 4b 61 73 74 | 65 6e 41 6e 7a 2a 4d 69 |=d.YKast|enAnz*Mi|
|000012b0| 6e 65 73 2e 4b 61 73 74 | 65 6e 50 6c 61 74 7a 2b |nes.Kast|enPlatz+|
|000012c0| 33 3b 0d 09 09 66 2e 53 | 65 69 74 65 6e 4f 66 66 |3;...f.S|eitenOff|
|000012d0| 73 65 74 3a 3d 58 30 2b | 31 3b 66 2e 55 6e 74 65 |set:=X0+|1;f.Unte|
|000012e0| 6e 4f 66 66 73 65 74 3a | 3d 59 30 2b 31 3b 0d 09 |nOffset:|=Y0+1;..|
|000012f0| 09 52 45 54 55 52 4e 20 | 66 3b 0d 09 45 4e 44 20 |.RETURN |f;..END |
|00001300| 4e 65 77 46 72 61 6d 65 | 3b 1c 0d 0d 09 28 2a 20 |NewFrame|;....(* |
|00001310| 6c 6f 61 64 20 65 6c 65 | 6d 65 6e 74 20 73 74 61 |load ele|ment sta|
|00001320| 74 65 20 2a 29 0d 09 50 | 52 4f 43 45 44 55 52 45 |te *)..P|ROCEDURE|
|00001330| 20 4c 6f 61 64 28 65 3a | 20 45 6c 65 6d 3b 20 56 | Load(e:| Elem; V|
|00001340| 41 52 20 72 3a 20 46 69 | 6c 65 73 2e 52 69 64 65 |AR r: Fi|les.Ride|
|00001350| 72 29 3b 1c 0d 09 09 56 | 41 52 20 58 41 6e 7a 2c |r);....V|AR XAnz,|
|00001360| 20 59 41 6e 7a 2c 20 51 | 75 6f 74 65 2c 20 4d 6f | YAnz, Q|uote, Mo|
|00001370| 64 65 3a 20 53 48 4f 52 | 54 49 4e 54 3b 0d 09 42 |de: SHOR|TINT;..B|
|00001380| 45 47 49 4e 0d 09 09 46 | 69 6c 65 73 2e 52 65 61 |EGIN...F|iles.Rea|
|00001390| 64 28 72 2c 20 58 41 6e | 7a 29 3b 0d 09 09 46 69 |d(r, XAn|z);...Fi|
|000013a0| 6c 65 73 2e 52 65 61 64 | 28 72 2c 20 59 41 6e 7a |les.Read|(r, YAnz|
|000013b0| 29 3b 0d 09 09 46 69 6c | 65 73 2e 52 65 61 64 28 |);...Fil|es.Read(|
|000013c0| 72 2c 20 51 75 6f 74 65 | 29 3b 0d 09 09 46 69 6c |r, Quote|);...Fil|
|000013d0| 65 73 2e 52 65 61 64 28 | 72 2c 20 4d 6f 64 65 29 |es.Read(|r, Mode)|
|000013e0| 3b 0d 09 09 65 2e 64 3a | 3d 4e 65 77 46 69 65 6c |;...e.d:|=NewFiel|
|000013f0| 64 28 58 41 6e 7a 2c 20 | 59 41 6e 7a 2c 20 51 75 |d(XAnz, |YAnz, Qu|
|00001400| 6f 74 65 2c 20 4d 6f 64 | 65 29 3b 0d 09 45 4e 44 |ote, Mod|e);..END|
|00001410| 20 4c 6f 61 64 3b 1c 0d | 0d 09 28 2a 20 73 74 6f | Load;..|..(* sto|
|00001420| 72 65 20 65 6c 65 6d 65 | 6e 74 20 73 74 61 74 65 |re eleme|nt state|
|00001430| 20 2a 29 09 0d 09 50 52 | 4f 43 45 44 55 52 45 20 | *)...PR|OCEDURE |
|00001440| 53 74 6f 72 65 28 65 3a | 20 45 6c 65 6d 3b 20 56 |Store(e:| Elem; V|
|00001450| 41 52 20 72 3a 20 46 69 | 6c 65 73 2e 52 69 64 65 |AR r: Fi|les.Ride|
|00001460| 72 29 3b 1c 0d 09 42 45 | 47 49 4e 0d 09 09 46 69 |r);...BE|GIN...Fi|
|00001470| 6c 65 73 2e 57 72 69 74 | 65 28 72 2c 20 53 48 4f |les.Writ|e(r, SHO|
|00001480| 52 54 28 65 2e 64 2e 58 | 4b 61 73 74 65 6e 41 6e |RT(e.d.X|KastenAn|
|00001490| 7a 29 29 3b 0d 09 09 46 | 69 6c 65 73 2e 57 72 69 |z));...F|iles.Wri|
|000014a0| 74 65 28 72 2c 20 53 48 | 4f 52 54 28 65 2e 64 2e |te(r, SH|ORT(e.d.|
|000014b0| 59 4b 61 73 74 65 6e 41 | 6e 7a 29 29 3b 0d 09 09 |YKastenA|nz));...|
|000014c0| 46 69 6c 65 73 2e 57 72 | 69 74 65 28 72 2c 20 53 |Files.Wr|ite(r, S|
|000014d0| 48 4f 52 54 28 65 2e 64 | 2e 51 75 6f 74 65 29 29 |HORT(e.d|.Quote))|
|000014e0| 3b 0d 09 09 46 69 6c 65 | 73 2e 57 72 69 74 65 28 |;...File|s.Write(|
|000014f0| 72 2c 20 53 48 4f 52 54 | 28 65 2e 64 2e 4d 6f 64 |r, SHORT|(e.d.Mod|
|00001500| 65 29 29 3b 0d 09 45 4e | 44 20 53 74 6f 72 65 3b |e));..EN|D Store;|
|00001510| 1c 0d 0d 09 28 2a 20 6d | 6f 75 73 65 61 63 74 69 |....(* m|ouseacti|
|00001520| 6f 6e 2c 20 69 66 20 6e | 6f 74 20 73 65 6c 65 63 |on, if n|ot selec|
|00001530| 74 65 64 20 2a 29 0d 09 | 50 52 4f 43 45 44 55 52 |ted *)..|PROCEDUR|
|00001540| 45 20 4d 6f 75 73 65 41 | 63 74 69 6f 6e 28 67 3a |E MouseA|ction(g:|
|00001550| 20 4d 69 6e 65 73 2e 46 | 72 61 6d 65 3b 20 58 2c | Mines.F|rame; X,|
|00001560| 20 59 3a 20 49 4e 54 45 | 47 45 52 3b 20 6b 65 79 | Y: INTE|GER; key|
|00001570| 73 2c 20 46 69 72 73 74 | 4b 65 79 3a 20 53 45 54 |s, First|Key: SET|
|00001580| 29 3b 1c 0d 09 42 45 47 | 49 4e 0d 09 09 49 46 20 |);...BEG|IN...IF |
|00001590| 28 6b 65 79 73 3d 7b 30 | 2c 31 7d 29 20 4f 52 20 |(keys={0|,1}) OR |
|000015a0| 28 6b 65 79 73 3d 7b 31 | 2c 32 7d 29 20 54 48 45 |(keys={1|,2}) THE|
|000015b0| 4e 20 4d 69 6e 65 73 2e | 4f 70 65 6e 28 29 3b 45 |N Mines.|Open();E|
|000015c0| 4e 44 3b 0d 09 45 4e 44 | 20 4d 6f 75 73 65 41 63 |ND;..END| MouseAc|
|000015d0| 74 69 6f 6e 3b 1c 0d 09 | 0d 09 28 2a 20 68 61 6e |tion;...|..(* han|
|000015e0| 64 6c 65 72 20 66 6f 72 | 20 65 6c 65 6d 65 6e 74 |dler for| element|
|000015f0| 20 2a 29 09 0d 09 50 52 | 4f 43 45 44 55 52 45 20 | *)...PR|OCEDURE |
|00001600| 48 61 6e 64 6c 65 28 48 | 61 6e 45 6c 65 6d 3a 20 |Handle(H|anElem: |
|00001610| 54 65 78 74 73 2e 45 6c | 65 6d 3b 20 56 41 52 20 |Texts.El|em; VAR |
|00001620| 6d 73 67 3a 20 54 65 78 | 74 73 2e 45 6c 65 6d 4d |msg: Tex|ts.ElemM|
|00001630| 73 67 29 3b 1c 0d 09 09 | 56 41 52 0d 09 09 09 63 |sg);....|VAR....c|
|00001640| 6f 70 79 3a 20 45 6c 65 | 6d 3b 0d 09 09 09 65 3a |opy: Ele|m;....e:|
|00001650| 20 45 6c 65 6d 3b 0d 09 | 09 09 66 3a 20 46 72 61 | Elem;..|..f: Fra|
|00001660| 6d 65 3b 0d 09 42 45 47 | 49 4e 0d 09 09 65 3a 3d |me;..BEG|IN...e:=|
|00001670| 48 61 6e 45 6c 65 6d 28 | 45 6c 65 6d 29 3b 0d 09 |HanElem(|Elem);..|
|00001680| 09 57 49 54 48 20 6d 73 | 67 3a 20 54 65 78 74 73 |.WITH ms|g: Texts|
|00001690| 2e 43 6f 70 79 4d 73 67 | 20 44 4f 0d 09 09 09 4e |.CopyMsg| DO....N|
|000016a0| 45 57 28 63 6f 70 79 29 | 3b 20 54 65 78 74 73 2e |EW(copy)|; Texts.|
|000016b0| 43 6f 70 79 45 6c 65 6d | 28 65 2c 20 63 6f 70 79 |CopyElem|(e, copy|
|000016c0| 29 3b 0d 09 09 09 63 6f | 70 79 2e 64 3a 3d 4e 65 |);....co|py.d:=Ne|
|000016d0| 77 46 69 65 6c 64 28 65 | 2e 64 2e 58 4b 61 73 74 |wField(e|.d.XKast|
|000016e0| 65 6e 41 6e 7a 2c 20 65 | 2e 64 2e 59 4b 61 73 74 |enAnz, e|.d.YKast|
|000016f0| 65 6e 41 6e 7a 2c 20 65 | 2e 64 2e 51 75 6f 74 65 |enAnz, e|.d.Quote|
|00001700| 2c 20 65 2e 64 2e 4d 6f | 64 65 29 3b 0d 09 09 09 |, e.d.Mo|de);....|
|00001710| 6d 73 67 28 54 65 78 74 | 73 2e 43 6f 70 79 4d 73 |msg(Text|s.CopyMs|
|00001720| 67 29 2e 65 3a 3d 63 6f | 70 79 3b 0d 09 09 7c 20 |g).e:=co|py;...| |
|00001730| 6d 73 67 3a 20 54 65 78 | 74 73 2e 49 64 65 6e 74 |msg: Tex|ts.Ident|
|00001740| 69 66 79 4d 73 67 20 44 | 4f 0d 09 09 09 6d 73 67 |ifyMsg D|O....msg|
|00001750| 2e 6d 6f 64 3a 3d 22 4d | 69 6e 65 73 45 6c 65 6d |.mod:="M|inesElem|
|00001760| 73 22 3b 0d 09 09 09 6d | 73 67 2e 70 72 6f 63 3a |s";....m|sg.proc:|
|00001770| 3d 22 41 6c 6c 6f 63 22 | 3b 0d 09 09 7c 20 6d 73 |="Alloc"|;...| ms|
|00001780| 67 3a 20 54 65 78 74 46 | 72 61 6d 65 73 2e 44 69 |g: TextF|rames.Di|
|00001790| 73 70 6c 61 79 4d 73 67 | 20 44 4f 0d 09 09 09 49 |splayMsg| DO....I|
|000017a0| 46 20 7e 6d 73 67 2e 70 | 72 65 70 61 72 65 20 54 |F ~msg.p|repare T|
|000017b0| 48 45 4e 0d 09 09 09 09 | 66 3a 3d 4e 65 77 46 72 |HEN.....|f:=NewFr|
|000017c0| 61 6d 65 28 65 2e 64 2c | 20 6d 73 67 2e 58 30 2c |ame(e.d,| msg.X0,|
|000017d0| 20 6d 73 67 2e 59 30 29 | 3b 0d 09 09 09 09 66 2e | msg.Y0)|;.....f.|
|000017e0| 63 6f 6c 3a 3d 6d 73 67 | 2e 63 6f 6c 3b 66 2e 65 |col:=msg|.col;f.e|
|000017f0| 3a 3d 65 3b 0d 09 09 09 | 09 50 6c 6f 74 41 6c 6c |:=e;....|.PlotAll|
|00001800| 28 66 29 3b 0d 09 09 09 | 09 6d 73 67 2e 65 6c 65 |(f);....|.msg.ele|
|00001810| 6d 46 72 61 6d 65 3a 3d | 66 3b 0d 09 09 09 45 4e |mFrame:=|f;....EN|
|00001820| 44 3b 0d 09 09 7c 20 6d | 73 67 3a 20 54 65 78 74 |D;...| m|sg: Text|
|00001830| 46 72 61 6d 65 73 2e 54 | 72 61 63 6b 4d 73 67 20 |Frames.T|rackMsg |
|00001840| 44 4f 0d 09 09 09 4d 69 | 6e 65 73 2e 54 72 61 63 |DO....Mi|nes.Trac|
|00001850| 6b 4d 6f 75 73 65 28 66 | 2c 20 6d 73 67 2e 58 2c |kMouse(f|, msg.X,|
|00001860| 20 6d 73 67 2e 59 2c 20 | 6d 73 67 2e 6b 65 79 73 | msg.Y, |msg.keys|
|00001870| 2c 20 4d 6f 75 73 65 41 | 63 74 69 6f 6e 29 3b 0d |, MouseA|ction);.|
|00001880| 09 09 7c 20 6d 73 67 3a | 20 54 65 78 74 50 72 69 |..| msg:| TextPri|
|00001890| 6e 74 65 72 2e 50 72 69 | 6e 74 4d 73 67 20 44 4f |nter.Pri|ntMsg DO|
|000018a0| 0d 09 09 09 49 46 20 7e | 6d 73 67 2e 70 72 65 70 |....IF ~|msg.prep|
|000018b0| 61 72 65 20 54 48 45 4e | 0d 09 09 09 09 50 72 69 |are THEN|.....Pri|
|000018c0| 6e 74 28 65 2c 20 6d 73 | 67 2e 58 30 2c 20 6d 73 |nt(e, ms|g.X0, ms|
|000018d0| 67 2e 59 30 29 3b 0d 09 | 09 09 45 4e 44 3b 0d 09 |g.Y0);..|..END;..|
|000018e0| 09 7c 20 6d 73 67 3a 20 | 54 65 78 74 73 2e 46 69 |.| msg: |Texts.Fi|
|000018f0| 6c 65 4d 73 67 20 44 4f | 0d 09 09 09 49 46 20 6d |leMsg DO|....IF m|
|00001900| 73 67 2e 69 64 3d 54 65 | 78 74 73 2e 6c 6f 61 64 |sg.id=Te|xts.load|
|00001910| 20 54 48 45 4e 0d 09 09 | 09 09 4c 6f 61 64 28 65 | THEN...|..Load(e|
|00001920| 2c 20 6d 73 67 2e 72 29 | 3b 0d 09 09 09 45 4c 53 |, msg.r)|;....ELS|
|00001930| 49 46 20 6d 73 67 2e 69 | 64 3d 54 65 78 74 73 2e |IF msg.i|d=Texts.|
|00001940| 73 74 6f 72 65 20 54 48 | 45 4e 0d 09 09 09 09 53 |store TH|EN.....S|
|00001950| 74 6f 72 65 28 65 2c 20 | 6d 73 67 2e 72 29 3b 0d |tore(e, |msg.r);.|
|00001960| 09 09 09 45 4e 44 3b 0d | 09 09 45 4c 53 45 0d 09 |...END;.|..ELSE..|
|00001970| 09 45 4e 44 3b 0d 09 45 | 4e 44 20 48 61 6e 64 6c |.END;..E|ND Handl|
|00001980| 65 3b 1c 0d 0d 09 28 2a | 20 62 75 69 6c 64 20 6e |e;....(*| build n|
|00001990| 65 77 20 65 6c 65 6d 65 | 6e 74 20 2a 29 0d 09 50 |ew eleme|nt *)..P|
|000019a0| 52 4f 43 45 44 55 52 45 | 20 42 75 69 6c 64 28 51 |ROCEDURE| Build(Q|
|000019b0| 75 6f 74 65 2c 20 58 4b | 61 73 74 65 6e 2c 20 59 |uote, XK|asten, Y|
|000019c0| 4b 61 73 74 65 6e 2c 20 | 4d 6f 64 65 3a 20 49 4e |Kasten, |Mode: IN|
|000019d0| 54 45 47 45 52 29 3b 1c | 0d 09 09 56 41 52 0d 09 |TEGER);.|...VAR..|
|000019e0| 09 09 65 3a 20 45 6c 65 | 6d 3b 0d 09 09 09 4d 3a |..e: Ele|m;....M:|
|000019f0| 20 54 65 78 74 46 72 61 | 6d 65 73 2e 49 6e 73 65 | TextFra|mes.Inse|
|00001a00| 72 74 45 6c 65 6d 4d 73 | 67 3b 0d 09 42 45 47 49 |rtElemMs|g;..BEGI|
|00001a10| 4e 0d 09 09 4d 69 6e 65 | 73 2e 47 65 74 50 61 72 |N...Mine|s.GetPar|
|00001a20| 28 51 75 6f 74 65 2c 20 | 58 4b 61 73 74 65 6e 2c |(Quote, |XKasten,|
|00001a30| 20 59 4b 61 73 74 65 6e | 2c 20 4d 6f 64 65 29 3b | YKasten|, Mode);|
|00001a40| 0d 09 09 4e 45 57 28 65 | 29 3b 0d 09 09 65 2e 57 |...NEW(e|);...e.W|
|00001a50| 3a 3d 4c 4f 4e 47 28 58 | 4b 61 73 74 65 6e 2a 4d |:=LONG(X|Kasten*M|
|00001a60| 69 6e 65 73 2e 4b 61 73 | 74 65 6e 50 6c 61 74 7a |ines.Kas|tenPlatz|
|00001a70| 2b 33 29 2a 54 65 78 74 | 46 72 61 6d 65 73 2e 55 |+3)*Text|Frames.U|
|00001a80| 6e 69 74 3b 0d 09 09 65 | 2e 48 3a 3d 4c 4f 4e 47 |nit;...e|.H:=LONG|
|00001a90| 28 59 4b 61 73 74 65 6e | 2a 4d 69 6e 65 73 2e 4b |(YKasten|*Mines.K|
|00001aa0| 61 73 74 65 6e 50 6c 61 | 74 7a 2b 33 29 2a 54 65 |astenPla|tz+3)*Te|
|00001ab0| 78 74 46 72 61 6d 65 73 | 2e 55 6e 69 74 3b 0d 09 |xtFrames|.Unit;..|
|00001ac0| 09 65 2e 68 61 6e 64 6c | 65 3a 3d 48 61 6e 64 6c |.e.handl|e:=Handl|
|00001ad0| 65 3b 20 65 2e 64 3a 3d | 4e 65 77 46 69 65 6c 64 |e; e.d:=|NewField|
|00001ae0| 28 58 4b 61 73 74 65 6e | 2c 20 59 4b 61 73 74 65 |(XKasten|, YKaste|
|00001af0| 6e 2c 20 51 75 6f 74 65 | 2c 20 4d 6f 64 65 29 3b |n, Quote|, Mode);|
|00001b00| 0d 09 09 4d 2e 65 3a 3d | 65 3b 0d 09 09 4f 62 65 |...M.e:=|e;...Obe|
|00001b10| 72 6f 6e 2e 46 6f 63 75 | 73 56 69 65 77 65 72 2e |ron.Focu|sViewer.|
|00001b20| 68 61 6e 64 6c 65 28 4f | 62 65 72 6f 6e 2e 46 6f |handle(O|beron.Fo|
|00001b30| 63 75 73 56 69 65 77 65 | 72 2c 20 4d 29 3b 0d 09 |cusViewe|r, M);..|
|00001b40| 45 4e 44 20 42 75 69 6c | 64 3b 1c 0d 0d 09 28 2a |END Buil|d;....(*|
|00001b50| 20 61 6c 6c 6f 63 61 74 | 6f 72 20 66 6f 72 20 6c | allocat|or for l|
|00001b60| 6f 61 64 65 64 20 65 6c | 65 6d 65 6e 74 20 2a 29 |oaded el|ement *)|
|00001b70| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 41 6c 6c 6f |..PROCED|URE Allo|
|00001b80| 63 2a 3b 1c 0d 09 09 56 | 41 52 20 65 3a 20 45 6c |c*;....V|AR e: El|
|00001b90| 65 6d 3b 0d 09 42 45 47 | 49 4e 0d 09 09 4e 45 57 |em;..BEG|IN...NEW|
|00001ba0| 28 65 29 3b 09 0d 09 09 | 65 2e 68 61 6e 64 6c 65 |(e);....|e.handle|
|00001bb0| 3a 3d 48 61 6e 64 6c 65 | 3b 0d 09 09 54 65 78 74 |:=Handle|;...Text|
|00001bc0| 73 2e 6e 65 77 3a 3d 65 | 3b 0d 09 45 4e 44 20 41 |s.new:=e|;..END A|
|00001bd0| 6c 6c 6f 63 3b 1c 0d 0d | 09 28 2a 20 69 6e 73 65 |lloc;...|.(* inse|
|00001be0| 72 74 20 64 69 66 66 65 | 72 65 6e 74 20 65 6c 65 |rt diffe|rent ele|
|00001bf0| 6d 65 6e 74 73 20 2a 29 | 0d 09 50 52 4f 43 45 44 |ments *)|..PROCED|
|00001c00| 55 52 45 20 49 6e 73 65 | 72 74 2a 3b 1c 0d 09 42 |URE Inse|rt*;...B|
|00001c10| 45 47 49 4e 0d 09 09 42 | 75 69 6c 64 28 31 35 2c |EGIN...B|uild(15,|
|00001c20| 20 38 2c 20 38 2c 20 2d | 31 29 3b 0d 09 45 4e 44 | 8, 8, -|1);..END|
|00001c30| 20 49 6e 73 65 72 74 3b | 1c 0d 09 0d 09 50 52 4f | Insert;|.....PRO|
|00001c40| 43 45 44 55 52 45 20 42 | 65 67 69 6e 6e 65 72 2a |CEDURE B|eginner*|
|00001c50| 3b 1c 0d 09 42 45 47 49 | 4e 0d 09 09 42 75 69 6c |;...BEGI|N...Buil|
|00001c60| 64 28 31 35 2c 20 38 2c | 20 38 2c 20 30 29 3b 0d |d(15, 8,| 8, 0);.|
|00001c70| 09 45 4e 44 20 42 65 67 | 69 6e 6e 65 72 3b 1c 0d |.END Beg|inner;..|
|00001c80| 09 0d 09 50 52 4f 43 45 | 44 55 52 45 20 41 64 76 |...PROCE|DURE Adv|
|00001c90| 61 6e 63 65 64 2a 3b 1c | 0d 09 42 45 47 49 4e 0d |anced*;.|..BEGIN.|
|00001ca0| 09 09 42 75 69 6c 64 28 | 31 36 2c 20 31 36 2c 20 |..Build(|16, 16, |
|00001cb0| 31 36 2c 20 31 29 3b 0d | 09 45 4e 44 20 41 64 76 |16, 1);.|.END Adv|
|00001cc0| 61 6e 63 65 64 3b 1c 0d | 09 0d 09 50 52 4f 43 45 |anced;..|...PROCE|
|00001cd0| 44 55 52 45 20 45 78 70 | 65 72 74 2a 3b 1c 0d 09 |DURE Exp|ert*;...|
|00001ce0| 42 45 47 49 4e 0d 09 09 | 42 75 69 6c 64 28 32 31 |BEGIN...|Build(21|
|00001cf0| 2c 20 33 30 2c 20 31 36 | 2c 20 32 29 3b 0d 09 45 |, 30, 16|, 2);..E|
|00001d00| 4e 44 20 45 78 70 65 72 | 74 3b 1c 0d 09 0d 42 45 |ND Exper|t;....BE|
|00001d10| 47 49 4e 0d 09 54 65 78 | 74 73 2e 4f 70 65 6e 57 |GIN..Tex|ts.OpenW|
|00001d20| 72 69 74 65 72 28 57 29 | 3b 0d 45 4e 44 20 4d 69 |riter(W)|;.END Mi|
|00001d30| 6e 65 73 45 6c 65 6d 73 | 2e 0d 09                |nesElems|...     |
+--------+-------------------------+-------------------------+--------+--------+